01( DOIT AND STACK FRAME VERBS > 

11C CODE VERB TO INDIRECTLY CALL VERB WHOSE ADDR IS ON 
21 CODE DOIT H POP, PCHL, NEXT 

41s P@ PARAM e 5 

51s >p PARAM ? 

6is P! PARAM 5 5 
71 s P§:+ PARAM @ + ? 

0 5 P@-i- S 5 

9 is pg-i-i P@+ ! 5 


I 41 



NLI ST 

C TERSE TEMPORARY ARCS ) 
< ERROR CATCHERS ) 


3UBR OVERB 
309 A C9 


3UBR UNDER 
30A8 C9 


RET 


RET, 


SUER DIVO 
SOBS C9 


RET, 


SUER MERR 

80C2 C9 RET, ( UTILITY 


SUER 

2 e r o 



80CF 

DD 36 

0 

0 

80D3 

DD 36 

1 

0 

80D7 

DD 36 


0 

80 DB 
80 DF 

DD 36 
C9 

8 

0 


0 0 X MVIX i 
0 1 X MVIX, 
0 2 X MVIX, 
0 3 X MVIX, 
RET, 


SUER 

STO 1 



8 i 26 

11 14 El 

0 TEMPI D 

LX I, 

81 ?9 

C3 35 81 

STO 

JMP 7 

L 

.ABEL ST02 



8.1.2C 

11 18 El 

0 TEMP2 D 

LX I, 


C3 35 81 
.ABEL ST03 

STO 

JMP, 

8132 

1.1. 1C El 

0 TEMPS D 

LX I, 

LABEL STO 



813 b 

DD E5 

X PL 

ISHX, 

8 1 37 

El 

H 

pop. 

LABEL MOVER 



3138 

1 4 0 

4 B 

LX 

813B 

ED BO 

LD IR •) 

813D 

C9 


RET, 

LABEL LD 



813E 

DD E5 

X PL 

ISHX, 

8140 

D1 

D 

POP, 

8141 

18 F’5 

MOVER 

JMPRi 

SUER 

FROUND 



815D 

D9 

CASSEMBLE 

EXX, 

815E 

19 

D 

DAD, 

315F 

D9 


E X X, 

8160 

11 0 0 

0 D 

LX I, 

8163 

ED 5A 

D I 

IftDC» 

8165 

30 4 

FST0 '. 

JRMC, 

8167 

c 

C 

I NR, 

8168 

CA 9A 80 

OVER! 

3 JZ, 

I 

_ABEL FSTO 



816B 

DD 71 3 

C 3 X 

ST X, 

816E 

7C 

H ft 

MOV, 

86F 

E6 7F 

•yp 

AN I, 

8171 

BO 

B 

OF 1 ; A, 

8172 

DD 77 0 

ft 0 X 

SIX, 

8175 

DD 75 1 

L 1 X 

SIX, 

8 i 78 

D9 


EXX, 

8179 

DD 74 2 

H 2 X 

SIX, 

817 C 

C9 


RET, 

SUER 

ALIGN 




SUBROUTINES ) 


( FLOAT I MG POINT ALIGN ROUTINE' > 






3197 

2 E <3 

3199 

D9 

319 A 

4F 

319B 

D9 

3190 

93 

319D 

5D 

8 19E 

C 8 

319F 

6 19 

L 

.ABEL ALU 

31A1 

D9 

81A 2 

2 B 3 A 

31A4 

CB IB 

81A6 

D9 

31A 7 

CB 1A 

81 ft 9 

CB IB 

81 AS 

3D 

81 AC 

C 8 

81 AD 

10 F2 

81 AF' 

C9 

SUBR 

SUB 

0 /~ t 

hi 

N 

8229 

EE 80 

822B 

57 


DD 66 

j 

..ABEL ADD 

O "> O 

DD 66 

0235 

FD 56 

1 , 

_ABEI.. ADO 

8238 

AF 

8239 

DD BE 

8 ? 2 F 

U 2 4b. 8 
FD BE 

8242 

C 8 

8243 

7ft 

i”'» *»]• *2. 

FD E5 

3246 

El 

8247 

CD 3E 8 

824A 

DD 77 

824D 

L-‘ "•* 


....ABEL, ft DC 

8241". 

DD 74 

8251 

FD BE 

8234 

C 8 

.ABEL ADC 

8255 

■7 f; 

8256 

E 6 80 

8258 

47 

8259 

CB FC 

32 3 B 

7ft 

825C 

E 6 80 

825E 

4F 

..... 5 .», 



u- b r H 


A 8 


DD 6 E 

8266 

FD 5E 

8269 

D9 

826ft 

DD 66 

826D 

FD 56 

8270 

DD 6 E 

8273 

FD 5E 


u 


u 


. 1 . 

0 

)6 

0 


.ABEL AD 10 


DECIMAL 25 


C H I'IUVj 

0 L MV 1, 
EXX , 
A C MOV, 
EXX, 
E SUB, 
L E MOV, 
EZ, 

HEX B MVI, 

EXX, 
D SELR, 
E RARE, 
EXX, 
.0 HARR, 
E RARE, 
A due , 
RZ, 

ALIO DJIMZ, 
RET, 


FLOATING; ADD AND SUBTRACT ROUTINE 


80 X RI, 
A D MOV, 
0 X H LDX, 
ft DO 5 -IMP, 

0 X H i.DX, 

0 Y D LDX, 

ft X. Kft, 
3 X CMPX, 
ft DO 6 JNZ, 
3 Y CMPX, 
RZ, 
D A MOV, 
Y PUSHX, 
H POP, 
LD CALL, 
A 0 X SIX, 
RET, 

H 0 X SIX, 
3 Y CMPX, 


H ft MOV, 
80 ANI, 
A B MOV, 
’7 H SET, 
D A MOV, 
30 AMI, 
A C MOV, 
7 D SET, 
B XRA, 
EX AF, 
1 X L LDX, 

1 Y E LDX, 

EXX, 

2 X H LDX, 

2 Y D LDX, 

3 X L LDX, 
3 Y E LDX, 

L A MOV, 

_E_■ 







< ADD, SUBRTRAC1" CONTINUED 3 


8278 

30 5 

827A 

EB 

827B 

D9 

827C 

EB 

827D 

41 

827E 

D9 

I... 

.ABEL AD20 


CD 96 SI 

8283 

FA A1 82 

8286 

19 

8237 

t i 80 0 

828A 

D9 

82 SB 

ED 5A 

32SD 

D2 513 31 

8290 

C 


Cft 9A 30 

3294 

CB I; C 


CB ID 

wk'vy 

D9 

829B 

L B i l.. 

829D 

D9 

829E 

C3 5D 81 

I 

t- 

.ABEL SB2Q 

n •* 


OxlH 1 

H 7 

82A2 

ED 52 


1 1 SO 0 

t'“j *'“» n. "~t 

O.C.M / 

D9 

y? A>”» 

ED 52 

L,’.AHn 

D2 C: 3 82 


8 E ■ i 4 ?' 



D9 

EB 



.5 


82B6 

A 7 


82B7 

FD 


S2B9 
32 BC 
82BD 

11 
D9 
EB 

30 0 

ocpc 

21 




_ __ _ 

pd 





!.ABEL 

. 8B30 


FA 

D9 


32C6 

oil S j. 

O •“!* “J 

/«, 

"S o 

32C9 

82CB 

LABEL 

D9 

D 

j. *...* 

. SB40 

3.2 CC 

CA 

A8 80 

... ... 


. « 

w 1 ’ 

ED 

OH 

82D1 
82 D 4 

FA 

D9 

5D 81 

82D5 

10 

r- 

BSD? 

C3 

CF 80 

SUBIC 

T* 1 O 8 

t 

8319 

DD 

6E 0 

831. C 

DO 

66 1 

1 

8320 

-ABEL 

7C 

B5 

FLOAT1 







7 C 



tfo SO 


2:7 

28 6 


29 

EB 


2: A 

21 0 

0 

2D 

ED 52 


i 

...ABEL FLIO 

2F 

L 90 


:31 

FA 3B 

-"I 

■34 

A 7 


1 

LABEL FL 

20 

;35 

D 


! 36 

ED 6A 



LABEL FL 

30 

I3B 

CB BC 


i3D 

34 


i3E 

DD 77 

0 

: 41 

DD 75 

1 

144 

DD 36 


I4S 

DD 71 


i4B 

i*"* s*“i 



H A MOV, 
SO AN I, 
FLIO JRZ -> 
XCHG, 
0 H LX I , 
D DSBC, 

90 C MVI, 
F'L.30 JM, 
A ANA , 

C BCR i 
H DADC 7 
FL20 JP, 

7 H RES, 
H ORA, 
A 0 X STX, 
L 1 X STX, 
0 2 X MVIX, 
C 3 X. STX , 
RET, 


FIX ROUTINE 


iBR 

f i x 

8 ? 

FD 21 7B 

IBB 

BE 

CD D9 83 

03 

21 20 E .1. 

!C6 

CB F6 

1 V“* o 

26 J, l'“ l" / h 

:CB 

DD CB 0 


CF 
CD 1 


U 


LABEL FX 60 
TO 2 DD 75 
-IDS DD 74 
0D8 109 

[...ABEL. FIX A 
iD9 AF’ 

IDA 67 
:DB 6F 
iDC DD BE 3 

:E0 DD 66 0 

CB FC 
DD 6E 1 

3EA DD 96 3 

-i ED Ds 




-:EE 

■;F'0 


6 O 


■:!F2 Ely 


OF'5 


47 

LABEL FX10 
•JF6 AF 
•iiF7 DD BE 2 


LABEL FX20 

3FB CB ID 

+01 10 FS 

LABE!. FX25 


DEC I MAI. 


CC 5 Y LX IX, 
ADD CALL, 
FIXA CALL, 
FX60 JRNC, 
ERROR H LX I, 
6 M SET, 


ti- 


H 


_Xi., 


7 0 X BITX, 
FX 60 .JRZ, 
H I MX, 


L 0 X ST X, 
H 1 X STX, 
RE "I", 


A XEA, 
A H MOV, 
A !.... MOV, 
3 X CMPX, 
R Z, 

0 X H L..DX, 
7 H SET, 
1 X L L..DX, 
90 A MVI, 
3 X SUBX, 
RC, 

FX25 JRZ, 
HEX B MVI, 
B CMP, 
FX10 JRNC, 
A B MOV, 


A XRA, 
X CMPX, 
R AL., 


H SRLR, 
L RARR, 
O AC I, 
FX20 D JIMZ, 


X CONTI Ml 





8407 

28 10 

FX40 JRZ, 

i'S ^ 4 * (j 

A 7 

A ANA i 

840A 

28 1 

FX30 JRZ i 

8400 

•"a \.i 

H 3'.MX , 

LABEL FX30 


840D 

EB 

XCHG, 

84 OE 

21 0 0 

0 H LX Iv 

8411 

A 7 

ft ANA, 

8412 

ED 52 

D DSBC i 

8414 

F2 ID 84 

FX50 UP, 

8417 

A 7 

A ANA , 

841 8 

C9 

RET* 

!.. 

ABEL F X40 


8419 

ft 7 

A ANA, 

841. A 

OB 70 

7 H BIT, 

841C 

08 

RZ, 

!.. 

ABEL FX50 


84 ID 

37 

8 TO, 

841E 

09 

RET* 

SUBE 

P0PTT1 


342D 

El 

H POP-, 

842E 

D1 

D PUP * 

342F 

ED 53 C El 

0 TT1 SDED, 

8433 

D1 

D POP * 

8434 

pr> [4- p p 

2 III SDED * 

3438 

\r V 

PCHL * 

C;| }gp{ 

P0PTT2 


3447 

E1 

H POP * 

8448 

D1 

D POP, 

8449 

ED 53 10 El 

0 TT2 SDED, 

844D 

D1 

D POP, 

844E 

ED 58 12 El 

2 TT2 SDED, 

845:2 

E9 

PCHL, 

SIJBR 

P0PT16 


8461 

El 

H POP * 

8462 

D1 

D POP, 

8463 

ED 53 C El 

0 TTi SDED, 

3467 

E9 

PCHL, 

SUBE 

PUSHTT1 


8477 

E1 

H POP, 

8478 

ED 5B E El 

2 TTI LDED* 

84-70 

D5 

D PUSH , 

847D 

ED 5B 0 El 

0 TTI LDED, 

3431 

D5 

D PUSH, 

8482 

E9 

PCHL * 

SUBE 

PUSHTT2 


8492 

El 

H POP * 

8493 

ED 5B 12 El 

2 TT2 1.DED, 

3497 

D5 

D PUSH , 

8498 

ED 5B 0 El 

0 TTI LDED, 

8490 

DS 

D PUSH, 

849D 

E9 

PCHL* 

SUBE 

PUSH!16 


84 AD 

El 

H POP, 

34AE 

ED 5B C El 

0 TTI LDED , 

84B2 

D5 

D PUSH, 

34B3 

E9 

PCHL* 


ROUTINE TO PUSH AND POP TERSE TEMP 


SUBE SAVER 













A 


D9 


EXX, 

CB 

1 c 

H RARE, 

CB 

.1. D 

L RARR, 

CB 

A 

D RARR , 

D9 


EXX, 

30 

.‘a 

ML.2 .JRNSC, 

19 


D DAD, 

39 


C ADC, 

A be!. 

ML 2 


10 

C!, I,. 1 

ML OOF-' D J.IMZ, 

D2 

FO 85 

MROUND .JNC, 

1 F 


KAR, 

CB 

1 c 

H RARR, 

CB 

1 n 

L RARR, 

l~‘ O 

F5 85 

MROUN1 JMP, 

ABEL 

. MROUND 


D9 


B. X X ? 

CB 

14 

H RALR, 

D? 


E X X ? 

5 


B DOR, 

ABEL 

MROUN1 


CD 

0 85 

RSTO ft:ALL, 

1 


t,- ADD 7 

s\ H p re | 

11CHK 


h. R 

8 0 


1 • '<■ J. 0 J1" b. 1 

B ADD, 

Eft 

C2 80 

HERR JF’E, 


7 86 

M20 JMP, 

.ABEL 

M ;L 0 


8 0 


B ADD, 

p*“. 

C2 80 

MERR JPO, 

. A 0 ie L, 

M20 


C6 

80 

80 ADI, 

U A 

A 8 80 

UNDER JZ, 

Du 

/ / O 

A 8 X 3 i X , 


]vj! 


RET, ( DIVIDE 


D I, VI 



1A 

.ABE!.. DVOV 

A **}’ 

?'"f / 

ED 52 

.ABEt. DVRES1 


..ABEL DvLOOF 
DE¬ 
ED 6 A 


O H 




3 ' Y CMPX, 

3 ;< CMPXv 

2 ,g p■ o ,.j 2. t 

0 X B LDX, 

1 X H LDX, 

2 x !.... y*x-, 

EXAF, 
HOV , 
OR I, 
HEX B MVI, 
DV8UB JMP, 


H HIW! 

D DSBCY 
C SBB, 


B DCF? -i 
DVMORM JRZ , 

EXX, 
H DA EC:, 





369C 

-OB 12 

D RALRv 

369E 

D9 

EXX, 

369F 

29 

) H DAD i 

36A0 


A ADC, 

36 A1 

38 EC 

BVOV JRC , 

LABEL DVSUB 


36A3 

ED 52 

D DSBC, 

36A5 

99 • 

C SBB, 

36A6 

30 EB 

DVRES1 JRMC, 

8 6 AS 

19 

D DAD, 

36 A 9 

89 

C ADC , 

86 A A 

A 7 

A AN A v 

36AB 

10 EA 

DVLOOP DJMZ j 

L 

ABEL BVNORM 


I.J 

DV 

. E X X » 

86ft El 

& 0 

0 B MVI , 

86 BO 

7F? 

E A MOV, 

86 B1. 

CB 42 

0 D BIT, 

86B3 

28 7 

DROUND JRZ 7 

86B5 

4 

B INR, 

CQ 

iJJ 

•~«“7 

ST’C f 

86B7 

IF 

: . RARL 

8613:3 

CB ,1. U 

H HARR 7 

86 BA 

CB ID 

L RARR, 

L 

ABEL DROUMD 

* 

86 BC 

CD 0 85 

RSTO CALL. , 

86 BF 

91. 

C SUB, 

86.C0 

C3 F'9 85 

MCHK JMP 7 

SUBR 

SQR 


i"> “t 

DD 7E 3 

< ASSEMBLE 3 X A LDX, 


B7 

A ORA, 

86EB 

CA CF 80 

z. €■ r >3 > J ,L 7 

y & E El 

DD CB 0- 7E 

7 0 X BITX, 

fro 

C4 34 87 

SQERR CNZ, 

86F'5 

D6 80 

80 SU 1 7 


47 

A B MOV, 

86F8 

CB 2F 

A SRAR, 

86 FA 

CE 0 

0 AC I , 

86FC 

F5 

PSW PUSH, 

$3 AFP 

87 

A ADD, 

86FE 

90 

B SUB , 

86FF 

ED 44 

NEC , 

8701. 

C6 80 

80 ADI 7 

8703 

3D 

A DCE 7 

8704 

DD 77 3 

A 3 X SIX, 

8707 

CD 26 81 

STO1 CALL 7 

870A 

FD 21 6C 80 

PSQOO Y LX IX , 

87 OE 

CD 32 82 

ADD i . - ALL , 

8711 

6 3 

3 B MVI 7 

I 

..ABEL 3Q10 


8713 

C5 

B PUSH, 

8714 

CD 2C 81 

ST02 CALL. , 

8? j 7 

21 14 El 

0 TEMPI H LXI , 

871A 

CD 3E 81 

L..I.I CALL , 

87 ID 

FD 21 18 El 

0 TEMP2 Y LX IX, 

872:!. 

CD 6B 86 

DIVI CALL, 

8724 

FD 35 3 

3 Y DCR X , 

8727 

CD 32 82 

ADD CALL , 

872A 

C 1 

B POP 7 

872B 

10 E 6 

SQ10 D.JNZ , 

872D 

FI 

PSW POP , 

*:* 7 p: 

C6 80 

80 ADI, 

37:30 

DD 77 3 

A 3 X 8TX, 


C9 

RET , 


< more: divide: > 


( SQUARE ROOT ROUT 


1 _A jD U, i 




< LINKS TO TERSE FLOATING POINT CRUD 


LBULl. CWt._l U l 


3734 

2 . 1 . 

20 El 

ERROR 

4 LX I, 

8737 

CB 

DE 

o 

M SET , 

8739 

DD 

CB 0 BE 

7 0 X 

RESX, 

873D 

C9 



RET, 

CODE 

FLOAT 



3746 

CD 

61 84 

PORT16 

CALL., 

8749 

CD 

Cl 84 

SAVER 

CALL, 

874C 

CD 

19 83 

f I oat 

CALL, 

874F 

CD 

EO 84 

RESTORER 

CALL, 

8752 

CD 

77 84 

PUSHTT 1 

CALL, 

8755 

FD 

E9 


NEXT 

CODE 

FIX 




q-7p;n 

CD 

2D 84 

P0P.TT1 

CALL, 

8760 

CD 

Cl 84 

SAVER 

CALL, 

8763 

CD 

B7 83 

f i x 

CALL, 

8766 

CD 

EO 84 

RESTORER 

CALL, 

8769 

CD 

AD 84 

PU8HT16 

CALL, 

876C 

FD 

E9 


NEXT 

CODE 

F+ 




8773 

CD 

2D 84 

POPTT1 

CAL!., 

8776 

CD 

47 84 

P 0 PTT 2 

CALL, 

C; "‘J > 3 / 

CD 

L-1 ’::i 4 

SAVER 

CALI., 

377C 

L" Hi 

,iL O 

ADD 

CALL, 

s~. 7 7 p' 

r* rt 

EO 34 

RESTORER 

CALL, 

*;"• **j? 

CD 

/ / 8 4 

PUSHTT1 

CALL, 

3 7 

FD 

E9 


NEXT 

Li £l £ 

F — 




878C 

CD 

2D 84 

POPIT 1 

CALL, 

S7SF 

CD 

47 84 

P0PTT2 

CALL» 

3792 

CD 

C1 84 

SAVER 

CALL, 

8795 

CD 

-~i o •’“« 

SUB 

CALL, 

C’| o o 

i *Ti 

P i’T O /l 

RESTORER 

CALL, 

879B 

CD 

77 84 

PUSHTT 1 

CAI..L, 

879E 

h o 

£9 


NEXT 


y i y 2 . YI x 2- 
Yi Y2. 

)£ xz 


rj ■? ^ 2 

7 3 I 

X f /xY-l;- 


1 j 


I 

I 


■X/ a 2. 


c 


# 3 




"AXA, A 





ML I ST 

< ERROR CATCHERS ) 


UBR 

OVERB 

075 

09 

UBR 

UNDER 

083 

09 

UBR 

DIVO 

090 

09 

UBR 

zero 

09D 

DD 36 0 

0 A 1 

DD 36 1 

0A5 

DD 36 2 

0A9 

DD 36 3 

OAD 

C9 

;U 8 R 

ST 01 

OF" 4 

1.1. C El 

:0F7 

C3 3 31 

5 

..ABEL ST02 

iOFA 

1 1 14 E 1 

JOFD 

03 3 31 

\ 

...ABET. STO3 

•5 1 00 

11 1C El 


...ABEL STO 


3103 DD E5 

3105 El 
LABEL. MOVER 

3106 1 4 0 

3109 ED BO 

3 1 OB U 

LABEL LD 


31OC 

DD E5 

31OE 

D 1 . 

10 F 

18 F5 

3 UBR 

FROUND 

c* 

D9 

i“j ,j. 

•*' 4 .i , r-\ 

J ..»i 

..J .1. .C... f...' 

D9 

3 j. 2 E 

' 11 0 0 

3131 

FT"i 5 A 

p- -[ 

30 4 

31 35 

C 

313J 

CA 75 80 

L 

.ABEL FSTO 

3130 

UU It. 

70 


E 6 7F 

T“t f"v 

8140 

l:j \J 

DD 77 0 

3143 

DD 75 1 

8146 

D9 

8147 

DD 74 2 

814 A 

09 

8 UBR 

ALIGN 

31 a 4 

7D 


RET 7 


RET v 


RET, ( UTILITY SUBROUTINES ) 


0 0 X MVIX7 
0 1 X MVIX., 
0 2 X MVIX, 
0 3 X MVIX, 
RET 7 


0 TEMPI D LX I, 
STO JMP, 


0 TEMP2 D LX I, 
STO JMP, 


0 TEMPS D LX 1 7 


X PUSHX 7 
H POP, 


4 £>' LAI, 

LD IR , 
RET, 


X PUSHX, 
D POP, 
MOVER JMPE, 




h X X, 
DAD, 


n n 


L., A 7 

L. X .1. i 
D DADO, 
•STO JR NO, 
C I NR, 
OVERB JZ, 


f FROOI'ID 



3 X sTX 


hp A MOV, 
71 :r AN 1 7 


» HR A 


A 0 


?A 
SIX 
STX 
EXX 
STX 



&L ROUT I 


A MOV • 






DECIMAL 


816 A 

93 


816B 

5D 


816C 

C8 


816D 

6 19 


LABEL ALIO 

816F 

D9 


8170 

CB 3 A 


8172 

CB IB 


8174 

D9 


3175 

CB 1A 


8177 

CB IB 


8 1 79 

3D 


817 A 

C8 


817B 

10 F2 


81.7D 

C9 


SUBR 

SUB 


81F4 

FD 7E 

0 

81F7 

EE 80 


81F9 

57 


81 FA 

DD 7E 

0 

81FIH 

C3 6 8 

2 

1. 

..ABEL ADD 


3200 

DD 66 

0 

8203 

DD 56 

0 

i. 

..ABEL ADO 

KSj 

13206 

AF 


8207 

DD BE 


820A 

C2 1C 8 


82 OD 

FD BE 

O 

8210 

C8 


8211 

7 A 


82 'j. 2 

FD E5 


8214 

El 


8215 

CD C S 

:i. 

8218 

DD 77 

0 

82 IB 

C9 


1 

-ABEL ADC 

6 

321C 

DD 74 

0 

82 iF 

FD BE 

3 

LABEL AD07 

y ,4.%! 2 2 

7C 


8224 

E6 80 


O ■*£. 2'. 8 

47 


£•‘227 

CB FC 



7 A 


822A 

b. 6 y u 


822L" 

4F 


822D 

CB FA 


822F 

A 8 


8230 

g 


8231 

DD 6E 

1 

8234 

FD 5E 

1 

8237 

D9 


8238 

DD 66 

2 

823B 

FD 56 

2 

823E 

DD 6E 


8241 

FD 5E 


' 

-ABEL ADI 

0 

8244 

7D 


8245 

BB ’ 


8246 

30 5 


8248 

i:£B 


3249 

D9 



E SUB, 
L E MOV, 
RZ» 

... 25 HEX B MV I, 

EXX, 
D SRLR, 
E RARR, 
EXX, 
D RARR, 
E RARR, 
A DCR, 
RZ, 

ALIO DJNZ, 


0 v ft LDX, 
80 X RI, 
A 0 MUV? 

o x 

AD05 JMFT 

0 X H LDX, 
0 X D LDX < 

A XRA, 
3 X CMPX, 
AD06 JNZ, 
3 V CMPX, 
RZ, 
D A MOV, 
Y PUSHX, 
H POP, 
LD CALL, 
A 0 X SIX, 
RET, 

H 0 X SIX, 
3 Y CMPX, 


H A MOV, 
80 AN I, 
A B MOV, 
7 H SET, 
D A MOV, 
80 ANI, 
A C MOV, 
7 D SET, 
B XRA, 
EXAF, 
1 X L l~ I") X , 

1 Y E LDX, 

EXX, 

2 X H LDX, 

2 Y D LDX, 

3 X L LDX, 
3 Y E LDX, 

L A MOV, 
E CMP, 
AD20 JRIMC, 
XCHG, 
L X. X, 


( FLOATING ADD AND SUBTRACT ROUTINE 






24B 

41 

A 

D9 

L 

.ABEL AD20 

>4D 

CD .64 81 

250 

8 

251 

FA 6F 82 

254 

19 

255 

11 80 0 

258 

09 

5 Q 

ED 5A 

25 B 

D2 2B 81 

25E 

C 

25F r 

CA 75 80 

262 

CB 1C 

264 

CB m 

266 

D9 

267 

CB 1C 

269 

CB ID 

26 B 

D9 

26C 

C3 2B 81 

1. 

_ABEL. SB20 

26 F 

A 7 

270 

ED 52 

2 ■;> 

1 1 80 0 

"ic’vs;;;- 

D9 

276 

^ 52 

’? 7 F-J 

3€ SO 

i... t U 

AS 

27E 

47 

27F 

D9 

280 

EB 

284 

.[ 1.) (j 

A 7 

285 

ED 52:: 

287 

11 80 0 

28 A 

D9 

tL.o ir* 

p’ 12 * 



LABEL 

" Q ■ 


291 

FA 

2 B 

81 

111 ! 9 ,J ”i 

D9 



295 

6 

18 



L.ABEL 

. Si 

B40 

298 

D9 



299 

D 



29ft 

CA 

po 

80 

29 D 

ED 

6 A 


O O p’ 

cr a 

5 r“f 

2 B 

81 

2 A2 

Dv 



2 A 2* 

1 o 

P2 


2A5 

C3 

9D 

80 

UBR 

FLOAT 


2E7 

DD 

6 E 

0 

2EA 

DD 

66 

1 

1 

....ABEL 

FI 

-OAT 1 

2ED 

7C 



2 EE 

B5 



2EF 

CA 

9D 

80 

2 F2 

7C 



4... l Y J 

E6 

80 



DECIHA 


C B MOV, 
EXX- 


AL 


.IGN CALL, 
EX AFT 
SB20 JM, 
D DAD, 
80 D LX I. 
EXX, 
D DADC, 
tOUND .JMC, 
C I MR, 
OVERB JZ, 
H RARR, 
L RARR, 
EXX, 
H RARR, 
L HARK, 
EXX, 
tOUND JMP, 


A ANA, 
D DSBC i 


p Y . 

D DSBC, 

30 A MVI, 
B XRA, 
A B MOV, 
F’ y x , 
X CHC, 
0 H LX I, 
A ANA, 
D DSBC, 
80 D LX I, 


S3, 


D DSBC, 


-ROUND JM, 
E X X, 
HEX B MVI, 


H DAD, 
EXX, 
C DCR, 
UNDER JZ, 
H 

"ROUND JM, 
EXX, 
3B40 DJNZ, 
zero JMP, 


0 X L LDX, 
1 X H LDX, 


H A MOV, 
L ORA, 
zero JZ, 
H A MOV, 
80 AN1, 


( ADD, 8UBRTRACT CONTINUED ) 



82F8 

21 

0 0 

S2FB 

ED 


LABEL 

. FI... 10 

32FD 

E 

90 

32FF 

FA 

9 83 

3302 

A 7 


LABEL. 

. FI...20 

8303 

D 


8304 

ED 

6 A 

8306 

F2 

•"j fj t *~j 

L 

.ABEL 

FI.... 30 

8309 

CB 

BC 

83 OB 

B4 


830C 

DD 

77 0 

830F 

DD 

75 1 

8312 

DD 

36 2 

8316 

DD 

71 3 

8319 

C9 


SUBR 

FIX 


ooo^ 

FD 

21 64 

8389 

CD 

0 82 

8380 

CD 

A7 83 

838F 

30 

F 

8891 

21 

24 El 

8394 

CB 

F6 

8396 

21 

FF 7F 

8399 

DD 

CB 0 

839D 

28 

1 

839F 




LABEL FX60 


8 3 AO 

DD 75 0 

83 A3 

DD 74 1. 

83A6 

C9 

1... 

.ABEL. FI XA 

83 A 7 

AF 

83A8 

67 

83A9 

6 F 

83 A A 

DD BE 3 

83AD 

CS 

83AE 

DD 66 0 

83B1 

CB FC 

83B3 

DD 6 E 1 

83 B 6 

3E 90 

83BS 

DD 96 3 

83 BB 

DS 

83BC 

k !8 13 

o o r* 

6 10 

o 

30 1 

83 C 3 

47 

s 

-ABEL FX10 

83C4 

AF 

83C5 

DD BE 2 

83C3 

17 

1 

-ABEL FX20 

83C9 

CD 3L 

83CB 

CB ID 

8 3 CD 

CE 0 


LABEL FX25 
S3 Eli. DD CB 7 

83B7 A7 


0 


SO 


7E 


0 H L X I , 
D DSBC , 


90 C MVI, 
FL30 JM, 
A ANA , 

C DCR , 
H DADO, 
FL20 JP , 


7 H RES , 
HI URA , 
A 0 X STX, 

L. i x s r x i 
0 2 X MVIX, 
C 3 X STX, 
RET, 


FIX ROUTINE ) 


C5 Y LX IX, 
ADD CALL, 
FIXA CALL, 
FX60 JRNC i 
ERROR H LX I, 
6 M SET, 

7FFF H I.XI 7 

7 O X B I I X , 
F X 60 JEZ i 
H I NX 7 

L 0 X STX, 
H 1 X STX, 
RET, 


A X R A 7 
A H MOV, 
A L MOV, 
3 X CMF'X 7 
RZ, 

0 X H LDX. 

7 H SET, 
1 X L LDX, 
90 A MV1 7 
3 X SUBX 7 
HC, 

FX25 JRZ» 
DECIMAL. 16 HEX B MV I, 

B CMP, 
FX10 JRNC 7 
A B MOV, 






